home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol058 / general.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-13  |  17.8 KB  |  532 lines
  1. 10  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20  REM All data is in the form of DATA statements.
  3. 30  REM By:  Melvin O. Duke.  Updated June 1983.
  4. 40  DATA Genealogy
  5. 50  DATA User's Manual
  6. 60  DATA -5
  7. 70  DATA 1
  8. 80  INDENT = 0
  9. 90  DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100  TRIM.LINE$ = "(Trim-line)"
  11. 110  REM Program begins here
  12. 120  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140  GOSUB 500  'For trim line and heading space
  15. 150  FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160  LPRINT CHR$(14);  'Set Expanded Print
  17. 170  LPRINT TAB(TAB.POS-2);TITLE$
  18. 180  LPRINT CHR$(18);  'Return to normal
  19. 190  FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200  LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220  LPRINT CHR$(27); "F"; 'Return to normal
  23. 222  LPRINT : LPRINT : LPRINT
  24. 224  LPRINT TAB(TAB.POS+11);"Version 1.3"
  25. 230  FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240  LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250  LINE.NO = LINE.NO + 27
  28. 260  '
  29. 270  READ REPLY$
  30. 280  IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290  IF LINE.NO > 44 THEN GOSUB 610
  32. 300  REM Print the line if not a command
  33. 310  LPRINT TAB(TAB.POS);REPLY$
  34. 320  LINE.NO = LINE.NO + 1
  35. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  36. 340  GOTO 270
  37. 350  REM Data for the Copyright Page
  38. 354  DATA ".pa"
  39. 358  DATA "Anyone may request a copy of these"
  40. 362  DATA "programs by sending two blank diskettes"
  41. 366  DATA "to the author of the programs (one for"
  42. 370  DATA "the programs, and the second for the"
  43. 374  DATA "documentation)."
  44. 378  DATA ".sp"
  45. 382  DATA "An addressed, postage-paid return"
  46. 386  DATA "mailer must accompany the diskettes (no"
  47. 390  DATA "exceptions, please).
  48. 394  DATA ".sp"
  49. 398  DATA "A copy of the programs with documenta-"
  50. 402  DATA "tion will be sent by return mail."
  51. 406  DATA ".sp"
  52. 410  DATA "Regardless of whether a contribution"
  53. 414  DATA "is made, the user is encouraged to"
  54. 418  DATA "copy and share the program with others."
  55. 422  DATA "Payment for use is discretionary on"
  56. 426  DATA "the part of each subsequent user."
  57. 430  DATA ".vt 4"
  58. 434  DATA "If you are using these programs, and"
  59. 438  DATA "finding them of value, your contribution"
  60. 442  DATA "($35 suggested) will be appreciated."
  61. 446  DATA ".sp"
  62. 450  DATA "Melvin O. Duke"
  63. 454  DATA "P. O. Box 20836"
  64. 458  DATA "San Jose, CA  95160"
  65. 462  DATA ".vt 4"
  66. 466  DATA "Copyright (c) 1983, by:"
  67. 470  DATA "Melvin O. Duke."
  68. 474  DATA ".sp"
  69. 478  DATA "All rights reserved."
  70. 482  '
  71. 500  REM Top of each page routine
  72. 510  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520  LPRINT
  74. 530  LPRINT TAB(30); TRIM.LINE$
  75. 540  LPRINT DASHES$ 'Dashes
  76. 550  FOR I = 1 TO 6
  77. 560   LPRINT
  78. 570  NEXT I
  79. 580  LINE.NO = LINE.NO + 6
  80. 590  RETURN
  81. 600  '
  82. 610  REM Bottom of each page Routine
  83. 620  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 1.3" 'on line 47
  86. 650  IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670  LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680  GOTO 740
  90. 690  LPRINT TAB(TAB.POS); "User's Manual";
  91. 700  IF PAGE.NO < 10 THEN DELTA = 34
  92. 710  IF PAGE.NO >  9 THEN DELTA = 33
  93. 720  IF PAGE.NO > 99 THEN DELTA = 32
  94. 730  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740  LPRINT : LPRINT : LPRINT
  96. 750  LPRINT DASHES$ 'dashes after 51
  97. 760  LPRINT TAB(30); TRIM.LINE$
  98. 770  LPRINT CHR$(12);
  99. 780  PAGE.NO = PAGE.NO + 1
  100. 790  LINE.NO = 1
  101. 800  IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810  GOSUB 500  'For top of next page
  103. 820  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830  RETURN
  105. 840  '
  106. 850  REM Command Processor
  107. 860  IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870  IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880  IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890  IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900  IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910  IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920  IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930  IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940  IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950  STOP
  118. 960  REM Head 1 Processor
  119. 970  FOR I = LINE.NO TO 44
  120. 980   LPRINT
  121. 990  NEXT I
  122. 1000  GOSUB 610  'Bottom of page Routine
  123. 1010  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020  LPRINT CHR$(14);  'Set expanded print
  125. 1030  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050  LPRINT CHR$(18);  'Return to normal
  128. 1060  LINE.NO = LINE.NO+1
  129. 1070  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080  RETURN
  131. 1090  '
  132. 1100  REM Head 2 Processor
  133. 1110  IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130  LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150  LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160  LPRINT
  139. 1170  LINE.NO = LINE.NO + 2
  140. 1180  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190  RETURN
  142. 1200  '
  143. 1210  REM Head 3 Processor
  144. 1220  IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230  IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240  LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260  LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270  LPRINT
  150. 1280  LINE.NO = LINE.NO + 2
  151. 1290  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300  RETURN
  153. 1310  '
  154. 1320  REM Single Space Processor
  155. 1330  IF LINE.NO = 7 THEN 1350
  156. 1340  IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360  RETURN
  159. 1370  REM End of File Processor
  160. 1380  GOSUB 1410 'Bottom of Page
  161. 1390  LPRINT CHR$(12);
  162. 1400  GOTO 15470
  163. 1410  REM Page Eject Processor
  164. 1420  FOR I = LINE.NO TO 44
  165. 1430   LPRINT
  166. 1440   LINE.NO = LINE.NO + 1
  167. 1450  NEXT I
  168. 1460  GOSUB 610  'Bottom of Page Processing
  169. 1470  RETURN
  170. 1480  REM Vertical Tab Processor
  171. 1490  IF LINE.NO = 7 THEN 1580
  172. 1500  IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520  FOR I = 1 TO QTY
  175. 1530   LPRINT
  176. 1540   LINE.NO = LINE.NO + 1
  177. 1550   IF LINE.NO > 44 THEN I = QTY
  178. 1560  NEXT I
  179. 1570  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580  RETURN
  181. 1590  REM Pack Processor
  182. 1600  IF LINE.NO > 44 THEN GOSUB 610
  183. 1610  IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620  IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630  TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640  LPRINT CHR$(15); 'Packed printing
  187. 1650  WIDTH "lpt1:", 132 'set condensed width
  188. 1660  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670  LPRINT CHR$(18); 'Return to normal
  190. 1680  WIDTH "lpt1:", 80  'return to normal
  191. 1690  LINE.NO = LINE.NO + 1
  192. 1700  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710  RETURN
  194. 1720  REM Indent Processor
  195. 1730  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740  RETURN
  197. 4300  DATA ".h1 GENERAL INFORMATION"
  198. 4305  DATA ".pn 9"
  199. 4310  DATA ".h2 DESCRIPTION OF FUNCTIONS"
  200. 4320  DATA ".h3 File Creation."
  201. 4330  DATA "Programs are provided to permit the user"
  202. 4340  DATA "to create one data file which contains"
  203. 4350  DATA "information about persons, another data"
  204. 4360  DATA "file which contains information about"
  205. 4370  DATA "marriages, and a third data file which"
  206. 4380  DATA "contains information about ordinances."
  207. 4390  DATA ".h3 File Maintenance."
  208. 4400  DATA "Programs are provided for the maintenance"
  209. 4410  DATA "of the three data files.  The user is free"
  210. 4420  DATA "to change any information, or to add new"
  211. 4430  DATA "information at any time."
  212. 4440  DATA ".h3 File Indices."
  213. 4450  DATA "Programs are provided for the creation"
  214. 4460  DATA "of two indices, one of which relates"
  215. 4470  DATA "parents and their children, and the other"
  216. 4480  DATA "which relates persons by marriage."
  217. 4490  DATA ".pa"
  218. 4500  DATA ".h3 Summary Lists."
  219. 4510  DATA "Programs are provided which will produce"
  220. 4520  DATA "summary lists of the records in the file"
  221. 4530  DATA "which contain the personal information,"
  222. 4540  DATA "or of the records in the file which con-"
  223. 4550  DATA "tain the marriages information."
  224. 4560  DATA ".h3 Detailed Data."
  225. 4570  DATA "One program is provided which will print"
  226. 4575  DATA "either individual records or the entire"
  227. 4580  DATA "contents of the Persons File, together"
  228. 4590  DATA "with the Ordinances File.  A second"
  229. 4595  DATA "program is provided which will print"
  230. 4596  DATA "either individual records or the entire"
  231. 4600  DATA "contents of the Marriages File."
  232. 4610  DATA ".h3 Displaying the Genealogy"
  233. 4620  DATA "Once the data files are as complete as"
  234. 4630  DATA "possible, and the indices have been"
  235. 4640  DATA "created, then the 'Display the Genealogy'"
  236. 4650  DATA "program 'display' can be used to display"
  237. 4660  DATA "the information about a person (including"
  238. 4665  DATA "personal information and church-related"
  239. 4666  DATA "information), an ancestral pedigree, or"
  240. 4680  DATA "the information about a family."
  241. 4685  DATA ".pa
  242. 4690  DATA ".h3 Printing Pedigree Charts"
  243. 4700  DATA "Once the data files are as complete as"
  244. 4710  DATA "possible, and the indices have been"
  245. 4720  DATA "created, then the Pedigree Program"
  246. 4730  DATA "'pedigree' can be used to print the"
  247. 4740  DATA "pedigree chart for any person who is"
  248. 4750  DATA "identified by the user."
  249. 4760  DATA ".h3 Printing Family Group Sheets"
  250. 4770  DATA "Once the data files are as complete as"
  251. 4780  DATA "possible, and the indices have been"
  252. 4790  DATA "created, then the Family Group Program"
  253. 4800  DATA "'family' can be used to print the"
  254. 4810  DATA "family group sheet for any marriage"
  255. 4820  DATA "which is identified by the user."
  256. 4830  DATA ".pa"
  257. 4840  DATA ".h2 DEFINITION OF TERMS"
  258. 4850  DATA ".h3 Personal Information."
  259. 4860  DATA "Personal information is that information"
  260. 4870  DATA "that is unique to a person.  It includes"
  261. 4880  DATA "the persons name, his date of birth, the"
  262. 4890  DATA "location of his birth, and his parents."
  263. 4900  DATA "It also contains (if appropriate) the"
  264. 4910  DATA "same type of information about a person's"
  265. 4920  DATA "death and burial."
  266. 4930  DATA ".h3 Pedigree Information."
  267. 4940  DATA "Pedigree information is that information"
  268. 4950  DATA "which shows the parents, grandparents,"
  269. 4960  DATA "etc., about a person.  It includes the"
  270. 4970  DATA "direct ancestry of the person."
  271. 4980  DATA ".h3 Family Group Information."
  272. 4990  DATA "Family group information is that informa-"
  273. 5000  DATA "mation about a marriage, and the children"
  274. 5010  DATA "of the marriage.  It includes the location"
  275. 5020  DATA "and date of the marriage, as well as"
  276. 5030  DATA "birth-dates, birth-places, and other in-"
  277. 5040  DATA "formation about the children, such as"
  278. 5050  DATA "marriage dates, and names of the spouse"
  279. 5051  DATA "of each child."
  280. 5060  DATA ".pa"
  281. 5070  DATA ".h2 Ordinance Information."
  282. 5080  DATA "Ordinance information is information"
  283. 5090  DATA "about church-related events in a"
  284. 5100  DATA "person's life."
  285. 5110  DATA ".pa"
  286. 5120  DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
  287. 5130  DATA "Genealogy is concerned with information"
  288. 5140  DATA "about any number of direct ancestors,"
  289. 5150  DATA "reaching backward as many generations"
  290. 5160  DATA "as possible.  It is also concerned with"
  291. 5170  DATA "family groups, with spouses, and with"
  292. 5180  DATA "children within the family groups."
  293. 5190  DATA ".sp"
  294. 5200  DATA "Keeping track of the broad and varied"
  295. 5210  DATA "relationships is a tedious manual task."
  296. 5220  DATA ".sp"
  297. 5230  DATA "Genealogy ON DISPLAY provides the basis"
  298. 5240  DATA "for recording and relating these varied"
  299. 5250  DATA "relationships by utilizing two data"
  300. 5260  DATA "files and two indices.  The first data"
  301. 5270  DATA "file contains information about persons."
  302. 5280  DATA "The second data file contains informa-"
  303. 5290  DATA "tion about marriages.  The first index"
  304. 5300  DATA "relates parents and their children."
  305. 5310  DATA "The second index relates people with"
  306. 5320  DATA "marriages."
  307. 5330  DATA ".sp"
  308. 5340  DATA "With these two files, and two indices,"
  309. 5350  DATA "Genealogy ON DISPLAY is able to"
  310. 5360  DATA "associate every person with every other"
  311. 5370  DATA "person, both with parent/child rela-"
  312. 5380  DATA "tionships, and with husband/wife"
  313. 5390  DATA "relationships."
  314. 5400  DATA ".sp"
  315. 5410  DATA "A third data file contains additional"
  316. 5420  DATA "personal information which is church-"
  317. 5430  DATA "related.  It contains all of the"
  318. 5440  DATA "ordinance information about a person."
  319. 5450  DATA ".pa"
  320. 5460  DATA ".h3 persfile"
  321. 5470  DATA "The first data file, named 'persfile',"
  322. 5480  DATA "contains all of the personal information"
  323. 5490  DATA "about an individual.  It also contains a"
  324. 5500  DATA "reference to that person's father and"
  325. 5510  DATA "mother.  Its format and content are:"
  326. 5520  DATA ".sp"
  327. 5530  DATA "Size  Content"
  328. 5540  DATA "----  --------------------------"
  329. 5550  DATA "  5   Record Number for a Person"
  330. 5560  DATA " 20   Surname of person"
  331. 5570  DATA " 30   Given names of person"
  332. 5580  DATA "  2   Sex"
  333. 5590  DATA "  5   Code"
  334. 5600  DATA "  5   Father's Record Number"
  335. 5610  DATA "  5   Mother's Record Number"
  336. 5620  DATA " 11   Birth-date of person"
  337. 5630  DATA " 18   Birth-city"
  338. 5640  DATA " 16   Birth-county"
  339. 5650  DATA " 16   Birth-state or country"
  340. 5660  DATA " 11   Death-date"
  341. 5670  DATA " 18   Death-city"
  342. 5680  DATA " 16   Death-county"
  343. 5690  DATA " 16   Death-state or country"
  344. 5700  DATA " 11   Burial-date"
  345. 5710  DATA " 18   Burial-city"
  346. 5720  DATA " 16   Burial-county"
  347. 5730  DATA " 16   Burial-state or country"
  348. 5731  DATA ".sp"
  349. 5732  DATA "Note: Code is available to the user"
  350. 5733  DATA "for any special user identification,"
  351. 5734  DATA "such as differentiating between"
  352. 5735  DATA "natural parents and adoptive perents."
  353. 5736  DATA "It is unused by the programs."
  354. 5740  DATA ".pa"
  355. 5750  DATA ".h3 marrfile"
  356. 5760  DATA "The second data file, named 'marrfile',"
  357. 5770  DATA "contains all of the records of marriages."
  358. 5780  DATA "Its contents are as follows:"
  359. 5790  DATA ".sp"
  360. 5800  DATA "Size  Content"
  361. 5810  DATA "----  --------------------------"
  362. 5820  DATA "  5   Record Number of the Marriage"
  363. 5830  DATA "  5   Husband's Record-number"
  364. 5840  DATA "  5   Wife's Record-number"
  365. 5850  DATA "  5   Code"
  366. 5860  DATA " 11   Marriage-date"
  367. 5870  DATA " 18   Marriage-city"
  368. 5880  DATA " 16   Marriage-county"
  369. 5890  DATA " 16   Marriage-state or country"
  370. 5900  DATA " 45   Comments"
  371. 5901  DATA ".sp"
  372. 5902  DATA "Note: Code is available to the user"
  373. 5903  DATA "for any special user identification,"
  374. 5904  DATA "such as differentiating between"
  375. 5905  DATA "first and second marriage of spouses."
  376. 5906  DATA "It is unused by the programs."
  377. 5909  DATA ".pa
  378. 5910  DATA ".h3 pcindex"
  379. 5920  DATA "The first index, named 'pcindex',"
  380. 5930  DATA "provides the relationships between"
  381. 5940  DATA "parents and children.  It contains:"
  382. 5950  DATA ".sp"
  383. 5960  DATA "The Number of Records in the Index."
  384. 5970  DATA ".sp"
  385. 5980  DATA "For each index record:"
  386. 5990  DATA "Parent's Record-number, and Child's"
  387. 6000  DATA "Record-number."
  388. 6010  DATA ".sp"
  389. 6020  DATA "Note:  Index records are in sequence"
  390. 6030  DATA "by Child's Birthdate within Parent's"
  391. 6040  DATA "Record-number."
  392. 6060  DATA ".h3 mindex"
  393. 6070  DATA "The second index, named 'mindex',"
  394. 6080  DATA "provides the relationships between"
  395. 6090  DATA "husbands and wives.  It contains:"
  396. 6100  DATA ".sp"
  397. 6110  DATA "The Number of Records in the Index."
  398. 6120  DATA ".sp"
  399. 6130  DATA "For each index record:"
  400. 6140  DATA "Person's Record-number in the Person's"
  401. 6150  DATA "File, followed by the Marriage-number"
  402. 6160  DATA "within the Marriage-file."
  403. 6170  DATA ".sp"
  404. 6180  DATA "Note:  Index records are in sequence"
  405. 6190  DATA "by Marriage-date within the Person's"
  406. 6200  DATA "Record-number."
  407. 6210  DATA ".pa"
  408. 6220  DATA ".h3 ordfile"
  409. 6230  DATA "The third data file, named 'ordfile'"
  410. 6240  DATA "contains all (LDS) church-related"
  411. 6250  DATA "information about an individual,"
  412. 6260  DATA "including all of the ordinance infor-"
  413. 6270  DATA "mation.  Its contents are as follows:"
  414. 6280  DATA "Size  Content"
  415. 6290  DATA "----  --------------------------"
  416. 6300  DATA "  5   Record Number for a Person"
  417. 6310  DATA " 11   Christening Date"
  418. 6320  DATA " 11   Blessing Date"
  419. 6330  DATA " 11   Sealed to Parents Date"
  420. 6340  DATA "  5   Father's Record Number"
  421. 6350  DATA "  5   Mother's Record Number"
  422. 6360  DATA " 11   Baptism Date"
  423. 6370  DATA " 11   Confirmation Date"
  424. 6380  DATA " 11   Patriarchical Blessing Date"
  425. 6390  DATA " 11   Endowment Date"
  426. 6400  DATA " 11   Sealed to Spouse Date"
  427. 6410  DATA "  5   Spouse's Record Number"
  428. 6420  DATA " 11   Aaronic Priesthood Date"
  429. 6430  DATA " 11   Deacon Date"
  430. 6440  DATA " 11   Teacher Date"
  431. 6450  DATA " 11   Priest Date"
  432. 6460  DATA " 11   Melchizedek Priesthood Date"
  433. 6470  DATA " 11   Elder Date"
  434. 6480  DATA " 11   Seventy Date"
  435. 6490  DATA " 11   High Priest Date"
  436. 6500  DATA " 11   Bishop Date"
  437. 6510  DATA " 11   Patriarch Date"
  438. 6520  DATA " 11   Apostle Date"
  439. 6530  DATA " 26   Occupation"
  440. 6540  DATA ".pa"
  441. 6550  DATA ".h3 Relationships."
  442. 6560  DATA "Because of the relationships carried"
  443. 6570  DATA "within the Persons File, pedigree"
  444. 6580  DATA "information may be associated backward"
  445. 6590  DATA "for any number of generations.  There"
  446. 6600  DATA "is no specific limit to the number of"
  447. 6610  DATA "generations that the Genealogy ON"
  448. 6620  DATA "DISPLAY programs will handle."
  449. 6630  DATA ".sp"
  450. 6640  DATA "Because of the indices, which relate"
  451. 6650  DATA "parents with their children, coupled"
  452. 6660  DATA "with the information in the Marriages"
  453. 6670  DATA "File, and the index to that file, it"
  454. 6680  DATA "is possible to relate any number of"
  455. 6690  DATA "persons together in families, showing"
  456. 6700  DATA "them in accordance with their date of"
  457. 6705  DATA "birth."
  458. 6706  DATA ".sp"
  459. 6710  DATA "(Note: there is no specific limit to"
  460. 6720  DATA "the number of families that the"
  461. 6730  DATA "Genealogy ON DISPLAY programs will"
  462. 6740  DATA "handle, other than the 200 marriages"
  463. 6745  DATA "limit.)
  464. 6750  DATA ".pa"
  465. 6760  DATA ".h2 BEFORE YOU START"
  466. 6765  DATA ".h3 List of Persons"
  467. 6770  DATA "Begin by making a numbered list, which"
  468. 6780  DATA "contains the people who will be in your"
  469. 6790  DATA "Persons File."
  470. 6800  DATA ".sp"
  471. 6810  DATA "This may look somewhat like:"
  472. 6820  DATA ".sp"
  473. 6830  DATA "No.  Surname      Given-Names"
  474. 6840  DATA "---  -----------  -----------"
  475. 6850  DATA "  1  ABLE         Melvin Otto"
  476. 6860  DATA "  2  LOVELY       Helen Lillian"
  477. 6870  DATA "  3  ABLE         Melvin Kent"
  478. 6880  DATA "  4  ABLE         Ronald Robert"
  479. 6890  DATA "  5  ABLE         Carolyn Elizabeth"
  480. 6900  DATA "  6  ABLE         Linda Ann"
  481. 6910  DATA "  7  ABLE         Otto"
  482. 6920  DATA "  8  BAKER        Beatrice"
  483. 6930  DATA "etc.  etc.         etc."
  484. 6940  DATA ".pa"
  485. 6950  DATA "Now go back and add the number which you"
  486. 6960  DATA "have assigned, which represents each"
  487. 6970  DATA "person's father and mother, such as:"
  488. 6980  DATA ".sp"
  489. 6990  DATA ".pk No.  Surname      Given-Names        Father  Mother"
  490. 7000  DATA ".pk ---  -----------  -----------        ------  ------"
  491. 7010  DATA ".pk   1  ABLE         Melvin Otto           7       8"
  492. 7020  DATA ".pk   2  LOVELY       Helen Lillian"
  493. 7030  DATA ".pk   3  ABLE         Melvin Kent           1       2"
  494. 7040  DATA ".pk   4  ABLE         Ronald Robert         1       2"
  495. 7050  DATA ".pk   5  ABLE         Carolyn Elizabeth     1       2"
  496. 7060  DATA ".pk   6  ABLE         Linda Ann             1       2"
  497. 7070  DATA ".pk   7  ABLE         Otto"
  498. 7080  DATA ".pk   8  BAKER        Beatrice"
  499. 7090  DATA ".pk etc.  etc.         etc.                etc.    etc."
  500. 7100  DATA ".sp"
  501. 7110  DATA "Note:  This is your master list of"
  502. 7120  DATA "persons. It will continue to grow as you"
  503. 7130  DATA "add more and more names.  After you have"
  504. 7140  DATA "updated the Persons File with these"
  505. 7150  DATA "people, you can produce the list by"
  506. 7160  DATA "loading the 'listper' program, and"
  507. 7170  DATA "running it."
  508. 7180  DATA ".pa"
  509. 7185  DATA ".h3 List of Marriages"
  510. 7190  DATA "Now make a second numbered list.  Enter"
  511. 7200  DATA "the record-numbers of the persons who"
  512. 7210  DATA "are married.  This may appear as:"
  513. 7220  DATA ".sp"
  514. 7230  DATA "Marriage     Husband's   Wife's"
  515. 7240  DATA "Number       Record-no.  Record-no."
  516. 7250  DATA "--------     ----------  ----------"
  517. 7260  DATA "  1            1           2"
  518. 7270  DATA "  2            7           8"
  519. 7280  DATA " etc.         etc.        etc."
  520. 7290  DATA ".sp"
  521. 7300  DATA "If you find it convenient, you may also"
  522. 7310  DATA "want to include names in this list."
  523. 7320  DATA ".sp"
  524. 7330  DATA "Note:  This is your master list of"
  525. 7340  DATA "marriages. It will continue to grow as"
  526. 7350  DATA "you add more and more marriages.  After"
  527. 7360  DATA "you have updated the Marriages File,"
  528. 7370  DATA "you can produce the list by loading the"
  529. 7380  DATA "'listmar' program, and running it."
  530. 15460  DATA ".eof"
  531. 15470  END
  532.